xx <- seq(1, by=2, length.out = 17)
plot(xx %% 17, xlab="", ylab="",col=rainbow(4),  pch=15, cex=c(2,3,4))
grid()